home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / lib / upstart / migrate-inittab.pl
Perl Script  |  2008-09-29  |  3KB  |  144 lines
  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. my %gettys;
  7. my $have_cad = 0;
  8.  
  9.  
  10. #-----------------------------------------------------------------------------#
  11. # Parse /etc/inittab
  12. #-----------------------------------------------------------------------------#
  13.  
  14. open INITTAB, "/etc/inittab"
  15.     or die "Unable to open /etc/inittab: $!";
  16.  
  17. while (<INITTAB>) {
  18.     chomp;
  19.     s/^\s*//;
  20.  
  21.     next if /^\#/;
  22.     next unless length;
  23.  
  24.     my ($id, $rlevel, $action, $process) = split /:/, $_, 4;
  25.  
  26.     warn "missing id field" and next
  27.     unless defined $id and length $id;
  28.     warn "missing runlevel field" and next
  29.     unless defined $rlevel;
  30.     warn "missing action field" and next
  31.     unless defined $action and length $action;
  32.     warn "missing process field" and next
  33.     unless defined $process;
  34.  
  35.  
  36.     $have_cad = 1 if $action eq "ctrlaltdel";
  37.     $gettys{$1} = [ $rlevel, $process ]    if $process =~ /getty.*\b(tty\w+)/;
  38. }
  39.  
  40. close INITTAB
  41.     or warn "Error while closing /etc/inittab: $!";
  42.  
  43.  
  44. #-----------------------------------------------------------------------------#
  45. # Alter /etc/event.d
  46. #-----------------------------------------------------------------------------#
  47.  
  48. unlink "/etc/event.d/control-alt-delete"
  49.     unless $have_cad;
  50.  
  51. foreach (qw/tty1 tty2 tty3 tty4 tty5 tty6/) {
  52.     unlink "/etc/event.d/$_"
  53.     unless exists $gettys{$_};
  54. }
  55.  
  56. foreach (sort keys %gettys) {
  57.     my ($rlevel, $process) = @{$gettys{$_}};
  58.  
  59.     my @job;
  60.     if (-f "/etc/event.d/$_") {
  61.     open JOB, "/etc/event.d/$_"
  62.         or warn "Unable to open /etc/event.d/$_: $!" and next;
  63.     @job = <JOB>;
  64.     chomp @job;
  65.     close JOB
  66.         or warn "Error while closing /etc/event,d/$_: $!" and next;
  67.  
  68.     foreach my $rl (qw/2 3 4 5/) {
  69.         my $idx;
  70.         for ($idx = 0; $idx < @job; $idx++) {
  71.         last if $job[$idx] =~ /^\s*(start|stop)\s+on\s+runlevel\s+$rl\b/;
  72.         }
  73.  
  74.         if ($idx < @job) {
  75.         if ($rlevel =~ /$rl/) {
  76.             $job[$idx] =~ s/^(\s*)stop(\s+)/$1start$2/;
  77.         } else {
  78.             $job[$idx] =~ s/^(\s*)start(\s+)/$1stop$2/;
  79.         }
  80.         } else {
  81.         if ($rlevel =~ /$rl/) {
  82.             push @job, "start on runlevel $rl";
  83.         } else {
  84.             push @job, "stop on runlevel $rl";
  85.         }
  86.         }
  87.     }
  88.  
  89.     my $idx;
  90.     for ($idx = 0; $idx < @job; $idx++) {
  91.         last if $job[$idx] =~ /^\s*respawn\s*/; # match bare 'respawn' too
  92.     }
  93.  
  94.     if ($idx < @job) {
  95.         # only match old-style 'respawn process', not bare 'respawn'
  96.         $job[$idx] =~ s/^(\s*respawn\s+).*/$1$process/;
  97.     } else {
  98.         push @job, "respawn";
  99.         push @job, "exec $process";
  100.     }
  101.  
  102.     # Try to fix up effects of previous broken migrations
  103.     if (@job and $job[$#job] =~ /.*(.+?)exec (\1)$/) {
  104.         $job[$#job] = "exec $1";
  105.     }
  106.  
  107.     } else {
  108.     push @job, "# $_ - getty";
  109.     push @job, "#";
  110.     push @job, "# Converted from /etc/inittab entry";
  111.     push @job, "";
  112.  
  113.     foreach my $rl (qw/2 3 4 5/) {
  114.         if ($rlevel =~ /$rl/) {
  115.         push @job, "start on runlevel $rl";
  116.         } else {
  117.         push @job, "stop on runlevel $rl";
  118.         }
  119.     }
  120.     push @job, "";
  121.  
  122.     push @job, "stop on shutdown";
  123.     push @job, "";
  124.  
  125.     push @job, "respawn";
  126.     push @job, "exec $process";
  127.     }
  128.  
  129.     open JOB, ">/etc/event.d/.$_"
  130.     or warn "Unable to write to /etc/event.d/.$_: $!" and next;
  131.     print JOB map { "$_\n" } @job;
  132.     unless (close JOB) {
  133.     warn "Error while closing /etc/event.d/.$_: $!";
  134.     unlink "/etc/event.d/.$_";
  135.     next;
  136.     }
  137.  
  138.     unless (rename "/etc/event.d/.$_", "/etc/event.d/$_") {
  139.     warn "Unable to replace /etc/event.d/$_: $!";
  140.     unlink "/etc/event.d/.$_";
  141.     next;
  142.     }
  143. }
  144.